home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / msdos / raytrace / pov / gen / lparser3 / tree00.ls < prev    next >
Text File  |  1993-11-22  |  829b  |  38 lines

  1. # --- L-System Parser/Mutator --- Lj Lapre ----------------------------------
  2. #
  3. # Monopodial skeleton
  4. #
  5. # Here is how to read the formulas on page 56 into
  6. # lparser syntax. The values can be input from page 57,
  7. # the strings colapsed and used.
  8. #
  9. # A = F[ &( a0 ) '( r2 ) !( wr ) BL  ] >( c ) '( r1 ) !( wr ) A
  10. # B = F[ -( a2 ) '( r2 ) !( wr ) $CL ]        '( r1 ) !( wr ) C
  11. # C = F[ +( a2 ) '( r2 ) !( wr ) $BL ]        '( r1 ) !( wr ) B
  12. #
  13. # Tree example b
  14. #
  15. # A=F[&'(.9)!BL]>(137)'(.9)!A
  16. # B=F[-'(.9)!$CL]'(.9)!C
  17. # C=F[+'(.9)!$BL]'(.9)!B
  18. #
  19. # Tree example c
  20. #
  21. # A=F[&'(.8)!BL]>(137)'!(.9)A
  22. # B=F[-'(.8)!(.9)$CL]'!(.9)C
  23. # C=F[+'(.8)!(.9)$BL]'!(.9)B
  24. #
  25. 10
  26. 45
  27. 15
  28. #
  29. FFAL
  30. #
  31. A=F[&'(.8)!BL]>(137)'!(.9)A
  32. B=F[-'(.8)!(.9)$CL]'!(.9)C
  33. C=F[+'(.8)!(.9)$BL]'!(.9)B
  34. #
  35. L=~cc{+(30)f(2)-(120)f(2)-(120)f(2)}
  36. @
  37.  
  38.